home *** CD-ROM | disk | FTP | other *** search
- property TheMovie, SmallMovieBox, LargeMovieBox, TheMaximizer, TheWindowshade
- global gCurrentMovie
-
- on new me
- return me
- end
-
- on getPropertyDescriptionList me
- description = [:]
- addProp(description, #TheMovie, [#default: 1, #format: #integer, #comment: "Spritenum of movie"])
- addProp(description, #SmallMovieBox, [#default: 43, #format: #integer, #comment: "Spritenum of Small Movie Box"])
- addProp(description, #LargeMovieBox, [#default: 44, #format: #integer, #comment: "Spritenum of Large Movie Box"])
- addProp(description, #TheMaximizer, [#default: 45, #format: #integer, #comment: "Spritenum of Maximizer"])
- addProp(description, #TheWindowshade, [#default: 46, #format: #integer, #comment: "Spritenum of Windowshade"])
- return description
- end
-
- on mouseUp me
- m = sprite(TheMovie).movieSize
- sprite(TheMovie).volume = 255
- case m of
- #notPlaying:
- set the memberNum of sprite TheMovie to the number of member gCurrentMovie
- set the rect of sprite TheMovie to rect(0, 285, 240, 480)
- devis(LargeMovieBox)
- vis(SmallMovieBox)
- updateStage()
- set the locH of sprite TheMaximizer to 179
- set the locV of sprite TheMaximizer to 261
- set the locH of sprite TheWindowshade to 196
- set the locV of sprite TheWindowshade to 261
- member(the memberNum of sprite TheMovie).controller = 1
- vis(TheMovie)
- updateStage()
- sprite(TheMovie).movieRate = 1
- sprite(TheMovie).movieSize = #Small
- end case
- pass()
- end
-